home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / artlist6.for < prev    next >
Text File  |  1993-06-30  |  2KB  |  59 lines
  1. /
  2. ^17 ^E
  3. !LINKER RAND 8
  4. ^12^BArtikel-Kunden-Liste ^b^17
  5. /
  6. !#VORHERIGE_ArtNr:= "' '"
  7.                                                                                          Seite: #SEITE:8:0
  8.                                                                                          Stand: #DATUM
  9.  
  10. Art.-Nr.   Bezeichnung                    Kd.Nr. Name                                Menge        Umsatz
  11. ────────────────────────────────────────────────────────────────────────────────────────────────────────
  12. /234567890 123456789012345678901234567890 123456 123456789012345678901234567890 12345678901 123456789012
  13. /
  14. !LISTE:57                              // Druck Liste maximal bis Druckzeile 57
  15. !WENN .NOT. Empty( #ArtNr) .AND. #ZwSummeUmsatz<> 0 .AND. #ZwSummeUmsatz<> #Umsatz
  16.                                                                                 ────────────────────────
  17.                                                                  Zwischensumme: #ZwSummeMenge:11:2 #ZwSummeUmsatz:12:2
  18.  
  19. !#ZwSummeUmsatz:= 0
  20. !#ZwSummeMenge := 0
  21. !ENDE WENN
  22. /
  23. #ArtNr:10  #ArtName:30                    #KunNr #KunName                       #Menge:11:2 #Umsatz:12:2
  24. /
  25. !#Anz:= #Anz + 1
  26. !#ZwSummeUmsatz:= #ZwSummeUmsatz + #Umsatz
  27. !#ZwSummeMenge := #ZwSummeMenge  + #Menge
  28. !#SummeUmsatz:= #SummeUmsatz + #Umsatz
  29. !#SummeMenge := #SummeMenge  + #Menge
  30. !#vorherige_ArtNr:= ArtNr
  31. !ENDE LISTE
  32. /
  33. !WENN #LETZTESEITE
  34.                                                                                 ────────────────────────
  35.                                                                  Zwischensumme: #ZwSummeMenge:11:2 #ZwSummeUmsatz:12:2
  36.  
  37. ────────────────────────────────────────────────────────────────────────────────────────────────────────
  38. Anzahl der aufgelisteten Kunden: #ANZ:8:0                        Gesamtsumme:   #SummeMenge:11:2 #SummeUmsatz:12:2
  39. !ENDE WENN
  40. /
  41. !SEITENAUSWURF
  42. !FORMULARENDE    // alles, was hiernach kommt, wird nicht mehr gedruckt...
  43.  
  44.  
  45. !PLATZHALTER
  46.   #ArtNr,            IF( "#Vorherige_ArtNr" <> ArtNr, artnr, '')
  47.   #ArtName,          IF( "#Vorherige_ArtNr" <> Artnr, Substr( art->art_name, 1,30), '')
  48.   #KunNr,            kdnr
  49.   #KunName,          kun->n2
  50.   #Menge,            menge
  51.   #Umsatz,           menge * EPreis
  52.  
  53.   #VORHERIGE_ArtNr,  vorhergruppe
  54.   #Anz,              nAnz
  55.   #ZwSummeUmsatz,    nZwSumUms
  56.   #ZwSummeMenge,     nZwSumMen
  57.   #SummeUmsatz,      nSumUms
  58.   #SummeMenge,       nSumMen
  59. !ENDE PLATZHALTER